
COM ('AT+CBST select bearer service type')
COM
COM ('Version History:')
COM ('Version 1.0   12.02.2004   R. Weiden	started for R65')
COM ('Version 1.2   10.01.2005   T. Kleinmann     modifications to test in more detail')
COM ('---------------------------------------------------------------------------------')

from attglobals import *

speeds=[0,4,6,7,14,68,70,71,75]


ATCMD (1, 'AT+CBST=?')

WAITFOR (1, '+CBST: (')

for i in speeds:
## 	AT+CBST=i
	ATCMD (1, 'AT+CBST=', i)
## 	WAIT FOR OK
	WAITFOR (1, 'OK')
	time.sleep (2.00)
## 	AT+CBST?
	ATCMD (1, 'AT+CBST?')
	WAITFOR(1,'+CBST: ',i)









